home *** CD-ROM | disk | FTP | other *** search
/ Mac Magazin/MacEasy 19 / Mac Magazin and MacEasy Magazine CD - Issue 19.iso / Wissenschaft & Technik / Open Prolog / Samples / Tak < prev   
Text File  |  1994-04-18  |  170b  |  11 lines

  1. tak(A,B,C,C) :- 
  2.    A=<B,!.
  3. tak(A,B,C,D) :- 
  4.    tak1(A,B,C,E),!,
  5.    tak1(B,C,A,F),!,
  6.    tak1(C,A,B,G),!,
  7.    tak(E,F,G,D).
  8. tak1(A,B,C,D) :- 
  9.    E is A-1,
  10.    tak(E,B,C,D).
  11.